home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
TPUG - Toronto PET Users Group
/
TPUG Users Group CD
/
TPUG Users Group CD.iso
/
TPUG Xtras
/
Xtras
/
progdisk.d64
/
intro
(
.txt
)
< prev
next >
Wrap
Commodore BASIC
|
2009-02-07
|
15KB
|
408 lines
1000 REM COPYRIGHT JULY, 1984 WHIZ KIDS
1010 POKE808,225:PRINTCHR$(8)
1020 GOTO1040
1030 POKE54273,INT(RND(1)*100)+1:POKE54272,INT(RND(1)*128)+128:RETURN
1040 POKE53280,1:POKE53281,0:PRINT"[147]"CHR$(142)
1050 DIMZX(15)
1060 FORI=1TO15:READZX(I):NEXTI
1070 DATA 5,28,31,159,30,156,158,129,149,150,151,152,153,154,155
1080 FORI=1TO15
1090 PRINTCHR$(ZX(I))
1100 GETA$:IFA$<>""THENGOSUB3510:POKE53280,0:GOTO1300
1110 GOSUB1130:NEXTI
1120 GOTO1080
1130 PRINT""
1140 PRINTTAB(6)"[175][175] [175][175] [175][175] [175][175] [175][175] [175][175][175][175][175][175]"
1150 PRINTTAB(6)"[180][170] [180][170] [180][170] [180][170] [180][170] [204][175][175][175] [170]"
1160 PRINTTAB(6)"[180][170] [180][170] [180][170][175][175][180][170] [180][170] [206] [206]"
1170 PRINTTAB(6)"[180][170] [180][170] [180] [170] [180][170] [206] [206] "
1180 PRINTTAB(6)"[180][170] [206][205] [180][170] [180] [170] [180][170] [206] [206] "
1190 PRINTTAB(6)"[180][170][206] [205][180][170] [180][170][183][183][180][170] [180][170] [206] [170][175][175][175]"
1200 PRINTTAB(6)"[205][175][175][206][205][175][175][206] [204][186] [204][186] [204][186] [204][175][175][175][175][186]"
1210 PRINTTAB(8)"[175][175] [175] [175][175] [175][175][175][175][175] [175][175][175][175]"
1220 PRINTTAB(8)"[180][170] [206][170] [180][170] [180] [205] [206] [175][175][186]"
1230 PRINTTAB(8)"[180][170][206] [206] [180][170] [180][170][183][183][205] [180] [180] [204][175] "
1240 PRINTTAB(8)"[180] [206] [180][170] [180][170] [170] [180] [205] [205]"
1250 PRINTTAB(8)"[180] [205] [180][170] [180][170] [170] [180] [183][183][205] [180]"
1260 PRINTTAB(8)"[180][170][205] [205] [180][170] [180][170][175][175][206] [180] [175][175][175][206] [180]"
1270 PRINTTAB(8)"[204][186] [205][186] [204][186] [204][175][175][175][175][206] [204][175][175][175][206] "
1280 PRINTTAB(10)"FOR THE COMMODORE 64 "
1290 FORX=1TO800:NEXT:RETURN
1300 POKE53280,6:POKE53281,1
1310 PRINT"[147]"
1320 PRINTTAB(9)" [146]"
1330 PRINTTAB(9)" WELCOME TO WHIZ KIDS [146]"
1340 PRINTTAB(9)" [146]"
1350 PRINT" MY NAME IS COMMODORE, BUT YOU CAN"
1360 PRINT" CALL ME CAPTAIN ...FOR SHORT"
1370 PRINT" I ONCE WAS 20 AND NOW I'M 64"
1380 PRINT"[151] YOU WILL BE SPENDING THE NEXT FEW"
1390 PRINT" MINUTES WITH ME. AS I HAVE ALREADY"
1400 PRINT" INTRODUCED MYSELF, I THINK IT'S ONLY"
1410 PRINT" FAIR THAT YOU TELL ME YOUR FULL NAME."
1420 PRINT" PLEASE TYPE YOUR NAME AND PRESS RETURN[151] ? ";:GOSUB4840:N$=QC$
1430 GOSUB3120
1440 FORL=54272TO54296:POKEL,0:NEXT:POKE54296,15:POKE54277,190:POKE54278,248
1450 POKE54276,17:FORY=0TO35
1460 X=INT(RND(1)*16):IFX>15ORX<0THEN1460
1470 POKE53280,X:POKE53281,Y:GOSUB1030:FORT=1TO100
1480 NEXT:NEXT:POKE54296,0:POKE54276,32
1490 FORI=1TO800:NEXTI:POKE53280,6:POKE53281,1
1500 PRINTCHR$(14)"[147][151] [217][207][213][210] [206][193][205][197] [201][206] [204][201][199][200][212][211]! [206][201][195][197] [211][212][193][210][212]!"
1510 PRINTTAB(7)"[198]IRST OF ALL, ALLOW ME TO"
1520 PRINTTAB(5)"INTRODUCE MY KEYBOARD TO YOU."
1530 PRINTTAB(7)"[151][208]RESS [195] TO CONTINUE...";
1540 GETA$:IFA$<>"C"THEN1540
1550 PRINT"[147][149] [195]AN YOU SEE NUMBERS ACROSS THE TOP ROW"
1560 PRINT" OF KEYS? [212]HESE ARE THE [151][206][213][205][197][210][201][195] [203][197][217][211]."
1570 PRINTTAB(25)"[183][183][183][183][183][183][183] [183][183][183][183]"
1580 PRINTTAB(10)"1 2 3 4 5 6 7 8 9 0"
1590 PRINT"[149] [201]N THE CENTER OF MY KEYBOARD, YOU WILL"
1600 PRINT" FIND [151][193][204][208][200][193][194][197][212][201][195] [203][197][217][211].":PRINT" [183][183][183][183][183][183][183][183][183][183] [183][183][183][183]"
1610 PRINTTAB(10)"[209][160][215][160][197][160][210][160][212][160][217][160][213][160][201][160][207][160][208]"
1620 PRINTTAB(11)"[193][160][211][160][196][160][198][160][199][160][200][160][202][160][203][160][204]"
1630 PRINTTAB(12)"[218][160][216][160][195][160][214][160][194][160][206][160][205]"
1640 PRINT"[149] [206]OTICE THE DIFFERENCE BETWEEN THE"
1650 PRINT" NUMERIC ZERO AND THE [207] IN THE ALPHABET";:PRINT""
1660 PRINTTAB(7)"[151][208]RESS 0 TO CONTINUE...";
1670 GETA$:IFA$<>"0"THEN1670
1680 PRINTTAB(6)"[147][151] [212]HERE ARE ALSO KEYS FOR..."
1690 PRINT"[149] [208][213][206][195][212][213][193][212][201][207][206] [205][193][210][203][211], ([151]' ! , . : ; ?[149])"
1700 PRINT"[149] [205][193][212][200][197][205][193][212][201][195][193][204] [211][217][205][194][207][204][211], ([151]+ - * /[149]) AND"
1710 PRINT" OTHER COMMON SYMBOLS ([151]# $[160]&[160][186][160]%[160]\ <>[149])"
1720 PRINT" [193]LONG WITH A NUMBER OF SPECIAL PURPOSE"
1730 PRINT" KEYS: [151][195][212][210][204] [210][197][211][212][207][210][197]"
1740 PRINTTAB(13)"[211][200][201][198][212] [210][197][212][213][210][206][149]"
1750 PRINTTAB(3)"[151] [146]"
1760 PRINTTAB(3)" [198]IND THESE KEYS ON THE COMPUTER [146]"
1770 PRINTTAB(3)" [146]"
1780 PRINTTAB(7)"[151][208]RESS \ TO CONTINUE...";
1790 GETA$:IFA$<>"\"THEN1790
1800 PRINT"[147] [201] SUGGEST YOU EXAMINE MY KEYBOARD."
1810 PRINT" [212]HIS WILL HELP YOU TO LEARN WITH ME."
1820 PRINTTAB(6)"[151][208]RESS [208] TO CONTINUE...";
1830 GETA$:IFA$<>"P"THEN1830
1840 GOSUB3340:POKE53281,1:POKE53280,6
1850 PRINT"[147][151] [198]OR THE MOMENT [201] WILL KEEP IT SIMPLE."
1860 PRINT" [198]IRST WE WILL LOOK AT THE [210][197][212][213][210][206][151] KEY."
1870 PRINTTAB(8)"[208]RESS THE [210][197][212][213][210][206][151] KEY...":POKE198,0
1880 GETA$:IFA$=""THEN1880
1890 IFA$<>CHR$(13)THENPRINTTAB(11)"[207][207][208][211]! [212]RY AGAIN.[151]":GOSUB3260:GOTO1850
1900 PRINT"[147]"TAB(13)"***[199][210][197][193][212]***":GOSUB3300
1910 PRINT"[151] [208]RESSING THE [210][197][212][213][210][206][151] KEY IS MUCH THE"
1920 PRINT"[151] SAME AS SAYING PLEASE, AS IN, "CHR$(34)"[208][204][197][193][211][197]"
1930 PRINT" ENTER THIS INSTRUCTION INTO MY MEMORY"CHR$(34)
1940 PRINT" [193]FTER YOU HAVE TYPED A MESSAGE TO ME, YOU MUST PRESS [210][197][212][213][210][206][151] ..."
1950 PRINTTAB(9)"[151][201][212]'[211] [207][206][204][217][160][199][207][207][196][160][205][193][206][206][197][210][211]!"
1960 PRINT"[151] [212]YPE THE WORD PRINT[151],":PRINT" AND REMEMBER [210][197][212][213][210][206][151]!!"
1970 PRINT" PRINT":PRINT"? ";:GOSUB4840:A$=QC$
1980 IFA$<>"PRINT"ANDA$<>"[208][210][201][206][212]"ANDA$<>"[208]RINT"THENPRINT"[207][207][208][211]! [212]RY AGAIN":GOTO1960
1990 FORI=1TO26:PRINT:NEXT
2000 PRINT"[151] [212]HAT WASN'T TOO HARD, WAS IT?
2010 [153]" (null)(null)RIGHT$(null)(null)POKE IS A SPECIAL COMPUTER WORD."
2020 [153]" (null)OU WILL LEARN TO USE IT LATER."
2030 [153][163]7)"POKE(null)RESS LEFT$ TO CONTINUE..."
2040 [161]A$:[139]A$[179][177]"H"[167]2040
2050 [151]53280,6:[151]53281,1:[153][199](14)
2060 [153]"LOADPOKE (null)RESSING THE (null)LEFT$RIGHT$ASC(null) KEY ALLOWS YOU TO"
2070 [153]" TYPE THE SYMBOLS ABOVE THE NUMBERS ON"
2080 [153]" THE (null)(null)(null)VAL(null)RIGHT$LENCLOSE(null)VAL(null)(null)."
2090 [153]" RIGHT$T ALSO LETS YOU TYPE CAPITAL LETTERS."
2100 [153]" ASCOR EXAMPLE, HOLD (null)LEFT$RIGHT$ASC(null) AND PRESS"
2110 [153]" 4 TO TYPE THE DOLLAR ($) SIGN."
2120 [153][163]9)"(null)OW TYPE THE $ SIGN.":[151]198,0
2130 [161]A$:[139]A$[178]""[167]2130
2140 [139]A$[178]"$"[167]2180
2150 [153][163]9)"(null)(null)(null)(null)!!! (null)RY ATNGAIN..."
2160 [129]I[178]1[164]500:[130]:[141]3260
2170 [153]"ON";:[129]I[178]1[164]38:[153]" ";:[130]:[153]"ONONON":[151]198,0:[137] 2130
2180 [153][163]19)"$":[141]3300:[129]X[178]1[164]500:[130]
2190 [129]I[178]1[164]25:[153]:[130]:[153]
2200 [153][163]7)"CHR$(null)(null)STR$! (null)OW PRESS ANY KEY."
2210 [161]A$:[139]A$[178]""[167]2210
2220 [151]53281,1:[151]53280,6
2230 [153]"LOADPOKE (null)LEASE TYPE YOUR NAME AND PRESS (null)VAL(null)(null)(null)(null)"
2240 [153]" (null)EMEMBER TO PRESS AND HOLD (null)LEFT$RIGHT$ASC(null)POKE FOR CAPITAL LETTERS!"
2245 [153]" ? ";
2250 [141]4840:N$[178]QC$:[153][163]6)"POKELEFT$ELLO "N$"POKE."
2260 [153]" STR$ID YOU NOTICE THE FLASHING SQUARE?"
2270 [153]" RIGHT$T IS CALLED A CURSOR..."
2280 [153]" LEFT$ERE IT IS AGAIN: ";
2290 [129] I[178]1 [164] 15
2300 [153]" WAITCMD";
2310 [129]J[178]1[164]200:[130]
2320 [153]" CMD";
2330 [129]J[178]1[164]200:[130]:[130]I
2340 [151]198,0:[153]"LOADPOKE (null)OW TYPE A COMPLETE LINE OF LETTERS"
2350 [153]" AND WATCH THE CURSOR MOVE!"
2360 [153][163]5)"(null)YPE UNTIL THE SCREEN CHANGES."
2370 [153]:[153]"DEF":[141]3400
2380 [151]53281,1:[151]53280,13
2390 [153]"POKELOAD (null)HE RIGHT$(null)(null)(null)/STR$VAL(null)POKE (INSERT/DELETE) KEY IN"
2400 [153]" THE TOP RIGHT CORNER OF THE COMPUTER,"
2410 [153]" REMOVES THE CHARACTER TO THE LEFT OF"
2420 [153]" THE CURSOR."
2430 [153]" (null)ATER YOU WILL LEARN TO INSERT WORDS"
2440 [153]" IN SENTENCES. ASCOR NOW, JUST PRESS THE"
2450 [153]" RIGHT$(null)(null)(null)/STR$VAL(null)POKE KEY A FEW TIMES."
2460 [153] ""
2470 [153]" ";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
2480 [153] " WAIT(null)OU MUST DELETE THE WHOLE SENTENCE WAIT"
2490 [153]" ";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
2500 [153] "ONONONONONONONPOKE"
2510 [153] " (null)ATCH THAT CURSOR MOVE!!!";:[129]W[178]1[164]1000:[130]:[151]198,0:[141]3400
2520 [153]"LOADPOKE RIGHT$F YOU LOOK ON THE FRONT SIDE OF"
2530 [153]" THE NUMBER KEYS, YOU WILL SEE"
2540 [153]" ABBREVIATIONS FOR EACH LEN(null)(null)(null)(null)POKE."
2550 [153]" (null)O USE THESE KEYS, HOLD DOWN THE"
2560 [153]" LEN(null)(null)(null)POKE KEY AND PRESS THE LEN(null)(null)(null)(null)POKE KEY"
2570 [153]" OF YOUR CHOICE."
2580 [153]" ((null)HE LEN(null)(null)(null)POKE KEY IS FOUND NEAR THE"
2590 [153]" TOP LEFT CORNER OF THE COMPUTER)"
2600 [153]" (null)O CONTINUE, USE THE LEN(null)(null)(null)POKE KEY AND THE"
2610 [153]" 3 KEY TO CHANGE THE CURSOR TO (null)VALSTR$POKE."
2620 [151]198,0
2630 [161]A$:[139]A$[178]""[167]2670
2640 [153]"STOP WAITCMD";:[129]I[178]1[164]200:[130]I
2650 [161]A$:[139]A$[178]""[167]2670
2660 [153]"STOP CMD";:[129]I[178]1[164]200:[130]I:[137]2630
2670 :
2680 [153]" ";:[129]I[178]1[164]35:[153]" ";:[130]:[153]"WAIT"
2690 [153]" WAITPOKE(null)OW TYPE UNTIL THE SCREEN CHANGES WAITPOKE"
2700 [153]" ";:[129]I[178]1[164]35:[153]" ";:[130]:[153]"WAITONONONONONON"
2710 [129]W[178]1[164]100:[130]:[151]198,0:[141]3400
2720 [151]53280,6:[153]"LOADPOKE (null)YPE A SENTENCE IN BLUEPOKE. (null)O CONTINUE"
2730 [153]" TYPE UNTIL THE SCREEN CHANGES."
2740 [153]" DEF(null)OTE:POKE(null)OU MUST USE THE LEN(null)(null)(null)POKE AND 7 KEY!"
2750 [151]198,0
2760 [161]A$:[139]A$[178]""[167]2800
2770 [153]"POKE WAITCMD";:[129]I[178]1[164]200:[130]I
2780 [161]A$:[139]A$[178]""[167]2800
2790 [153]"POKE CMD";:[129]I[178]1[164]200:[130]I:[137]2760
2800 [153]"ON "
2810 [129]W[178]1[164]200:[130]:[151]198,0:[141]3400
2820 [153]"LOADPOKE (null)Y KEYBOARD ALSO HAS ASC(null)(null)LEN(null)RIGHT$(null)(null)POKE KEYS."
2830 [153]" (null)HESE ARE THE GREY KEYS ON THE FAR"
2840 [153]" RIGHT SIDE OF THE KEYBOARD MARKED"
2850 [153]" ASC1POKE, ASC3POKE, ASC5POKE, ASC7POKE."
2860 [153]" (null)O USE THE NUMBERS (ASC2POKE, ASC4POKE, ASC6POKE, ASC8POKE)"
2870 [153]" ON THE SIDE OF THESE KEYS, HOLD THE"
2880 [153]" (null)LEFT$RIGHT$ASC(null) KEY DOWN AS YOU PRESS A"
2890 [153]" FUNCTION KEY."
2900 [153]"POKE (null)HE ASC(null)(null)LEN(null)RIGHT$(null)(null)POKE KEYS ARE JUST LIKE ANY"
2910 [153]" OTHER KEYS. (null)OU WILL LEARN TO USE"
2920 [153]" THEM LATER."
2930 [153]""
2940 [153][163]11)"POKE(null)RESS THE ASC4POKE KEY."
2950 [129]W[178]1[164]500:[130]:[151]198,0
2960 [161]A$:[139]A$[178]""[167]2960
2970 [139]A$[178][199](138)[167][137]3010
2980 [153][163]11)"POKE(null)(null)(null)(null)! (null)RY ATNGAIN!":[141]3260
2990 [153]"ON";:[129]I[178]1[164]38:[153]" ";:[130]:[153]"ONON"
3000 [151]198,0:[137]2960
3010 [129]I[178]1[164]25:[153]:[130]:[153]
3020 [153][163]7)"CHR$OOD! (null)OW PRESS ANY KEY.":[141]3300
3030 [161]A$:[139]A$[178]""[167]3030
3040 [151]53280,2:[151]53281,0
3050 [153][199](14)"LOAD PLEASE WAIT!!!!"
3060 [153]" NEXT PROGRAM LOADING."
3070 [141]4740
3080 [153][199](9)[199](142)[199](8)
3090 [153]"STOPLOAD "[199](34)"MATH DEMO"[199](34)",8"
3100 [153]"":[151]198,4:[151]631,13:[151]632,82:[151]633,213:[151]634,13:[128]
3110 [128]
3120 [129]T[178]1[164]15:[153]"STOP "N$" "N$" "N$"OPEN "N$"CLR "N$" "N$" "N$"SYS "N$;
3130 [153]"FOR "N$"VERIFY "N$"DEF "N$"POKE "N$"PRINT# "N$"PRINT "N$"CONT "N$"LIST "N$:[130]:[142]
3140 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
3150 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]25
3160 [135]DU,H,L:[139]DU[179][177][171]1[167][151]VL,L:[151]VH,H:[129]TT[178]1[164]DU[172]DO:[130]:[137]3160
3170 [151]54296,0:[142]
3180 [131] 1,21,154,1,25,177,3,0,0,30,28,214,5,0,0,2,28,214,3,32,94,5,0,0
3190 [131] 30,21,154,5,0,0
3200 [131] 2,21,154,3,25,177,3,0,0,30,28,214,5,0,0,2,28,214,3,32,94,5,0,0
3210 [131] 30,21,154,5,0,0
3220 [131] 4,19,63,4,17,37,15,19,63,4,17,37,4,19,63,30,21,154,3,0,0
3230 [131] 3,17,37,1,0,0,3,17,37,8,16,47,1,0,0,4,16,47,7,14,107,2,0,0,3,14,107
3240 [131] 12,12,216,2,0,0,7,22,227,2,0,0,30,21,154
3250 [131] -1,0,0
3260 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
3270 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]200
3280 [129]I[178]1[164]8:[151]VL,L(I):[151]VH,H(I):[129]X[178]1[164]DO[172]D(I):[130]:[130]
3290 [151] 54296,0:[142]
3300 [129]L[178]54272[164]54296:[151]L,0:[130]:[151]54296,15:[151]54277,0:[151]54278,248
3310 [151]54276,17:VL[178]54272:VH[178]54273:DO[178]150
3320 [129]I[178]9[164]15:[151]VL,L(I):[151]VH,H(I):[129]X[178]1[164]DO[172]D(I):[130]:[130]
3330 [151] 54296,0:[142]
3340 [134]L(15),H(15),D(15)
3350 [129]I[178]9[164]15:[151]VL,I:[151]VH,I:[129]X[178]1[164]DO[172]D(I):[130]:[130]
3360 [129]X[178]1[164]15:[135]H(X),L(X),D(X):[130]
3370 [131] 51,97,1,0,0,0,51,97,1,0,0,0,43,52,1,57,172,1,51,97,3,43,52,4
3380 [131] 68,149,1,86,105,1,102,194,1,137,43,1,0,0,1,115,88,1,137,43,5
3390 [142]
3400 C[178]0:Q[178]18:CC[178]0
3410 [161]A$:C[178]C[170]1
3420 [139]C[178]6[167]Q[178]164[171]Q:C[178]0
3430 [153][199](Q)[199](32)[199](146)[199](157);
3440 [139]A$[178][199](19)[176]A$[178][199](147)[167]3410
3450 [153]A$;
3460 [139]A$[178]""[167]3410
3470 CC[178]CC[170]1:[139]CC[179][177]25[167]3410
3480 [142]
3510 AD[178]53265: [143] INTRO START
3520 [151] 53270,[194](53270) [175] 247
3530 [151] 53265,[194](53265) [175] 247
3540 V[178]54296:W[178]54276:A[178]54277:H[178]54273:L[178]54272
3550 [151] 53270,[194](53270) [175] 247
3560 [151] 53265,[194](53265) [175] 247
3570 V[178]54296:W[178]54276:A[178]54277:H[178]54273:L[178]54272
3580 [134] A$(20)
3590 [151] 53281,0:[151] 53280,1
3600 [153]"LOAD"
3610 [143] INTRO
3620 [129]Q[178]1 [164] 20:X[178][181](39[172][187](0)[170]1):Y[178][181](20[172][187](0)[170]1)
3630 [151] 1024[170]Y[172]40[170]X,[198] ("."):[151] 55296[170]Y[172]40[170]X,1
3640 [130] Q
3650 [153]"";:[129]I[178]1[164]10:[153]" ":[130]I
3660 [151] V[170]16,0
3670 V[178]53248:[151] V[170]21,0
3680 [151] V[170]27,30
3690 [151] V[170]2,197:[151] V[170]4,245
3700 [151] V[170]6,197:[151] V[170]8,245
3710 [151] V[170]3,100:[151] V[170]5,100
3720 [151] V[170]7,142:[151] V[170]9,142
3730 [129] I[178]0 [164] 3:[151] 2041[170]I,250[170]I:[130] I
3740 [151] 2040,254
3750 [151] V[170]23,30:[151] V[170]29,30
3760 [129]I[178]0[164]7:[151]V[170]I[170]39,1:[130]I
3770 [151] V[170]39,8
3780 [151] V[170]21,15
3790 [153]"SYS(null)"
3800 [153]"(null)ONONON(null)"
3810 [153]"";
3820 [153]" CMDCMDCMDCMD CMDCMDCMD WAIT"
3830 [153][163]23)"WHIZ KIDS"
3840 [153]" CMDCMDCMD CMDCMD WAIT"
3850 X[178]30:Y[178]100:YV[178][171]3.5
3860 [129] Q[178]1 [164] 65
3870 [151] V,[181](X):[151] V[170]1,[181](Y):[151] V[170]21,31
3880 X[178]X[170]3
3890 Y[178]Y[170]YV:YV[178]YV[170].12:[130] Q
3900 [151] V[170]21,0
3910 [151] 53280,6:[151] 53281,6
3920 [153]"LOAD";
3930 [129]T[178]1[164]7:[153]" WAIT";:[130]
3940 [153]"";:[129]I[178]1[164]39:[153]" ";:[130]:[153]"WAIT";
3950 [151] 2023,160:[151] 56295,5
3960 [153]"";
3970 [151] 54296,15
3980 [151] 54277,7:[151] 54278,133
3990 [129]I[178]150[164]50[169] [171]1
4000 [151] 54273,I:[151] 54272,I[170]20:[151] 54276,17:[130]I
4010 TT[178]50
4020 A$(0)[178]" "
4030 A$(1)[178]" WAIT WAIT WAIT WAIT WAIT WAITSTEP"
4040 A$(2)[178]" WAIT WAIT WAIT WAIT WAIT WAITSTEP "
4050 A$(3)[178]" WAIT WAIT WAIT WAIT WAIT (null) "
4060 A$(4)[178]" WAIT WAIT WAIT WAIT WAIT WAIT STEP WAIT"
4070 A$(5)[178]" WAIT WAIT WAIT WAIT STEP WAIT"
4080 A$(6)[178]" "
4090 A$(7)[178]" WAIT STEP WAIT WAIT (null)WAIT WAIT"
4100 A$(8)[178]" WAITSTEP WAITSTEP WAIT WAIT WAIT WAIT "
4110 A$(9)[178]" +WAIT WAIT WAIT WAIT WAIT"
4120 A$(10)[178]" WAIT(null) (null)WAIT WAIT WAIT WAIT WAIT"
4130 A$(11)[178]" WAIT (null) (null)WAIT WAIT WAITSTEP WAIT"
4140 [129]I[178]0[164]11:A$(I)[178]" "[170]A$(I):[130]
4150 [151] 820,0:[151] 821,16
4160 [129]I[178]11[164]6[169][171]1
4170 [153]"DEF";
4180 [153]"";:[153]A$(I):[158]16384:[141]4730:[130]
4190 [129]I[178]1[164]10:[158]16384:[141]4730:[130]
4200 [141] 4670
4210 [153]"":[129]I[178]7[164]11:[153]A$(I):[130]:[129]I[178]1[164]34:[153]" ";:[130]
4220 [129]I[178]1[164]3:[151] AD,([194](AD)[175]248)[170]0
4230 [129]T[178]1[164]30:[130]
4240 [151] AD,([194](AD)[175]248)[170]7
4250 [129]T[178]1[164]30:[130]T,I:[151]54276,128
4260 [151] AD,([194](AD)[175]248)[170]3
4270 [151] 821,10
4280 [129] I[178]5 [164] 0 [169] [171]1
4290 [141] 4730
4300 [153]"DEF";
4310 [153]"";:[153]A$(I):[158] 16384:[130]I
4320 [129]I[178]1 [164] 4:[158] 16384:[141] 4730:[130] I
4330 [141] 4670:[153]"";
4340 [129]I[178]1 [164] 6:[153]A$(I):[130]I
4350 [129]I[178]1 [164] 3:[151] AD,([194](AD)[175]248)[170]0
4360 [129] T[178]1 [164] 30:[130]T
4370 [151] AD,([194](AD)[175]248)[170]7
4380 [129] T[178]1 [164] 30:[130]T,I
4390 [151] AD,([194](AD)[175]248)[170]3
4400 [153]"";
4410 [129]I[178]1 [164] 6:[153]A$(I):[130]I
4420 [153]""
4430 [151] 54296,0
4440 [151] 53270,[194](53270) [176] 8
4450 [151] 53265,[194](53265) [176] 8
4460 [129]I[178]1[164]5:[158]65[172]256:[129]T[178]1 [164] 100:[130]T:[130] I
4470 [153]"";
4480 [153]"AN INTRODUCTION TO BASIC"
4490 [153]"ON THE COMMODORE 64WAITONONONONON"
4500 [129]I[178]1 [164] 20:[158] 65[172]256:[129]T[178]1 [164] 100:[130]T,I
4510 [153]"";
4520 [153]"";:[129]I[178]1[164]39:[153]" ";:[130]
4530 [153]" AN INTRODUCTION TO BASIC"
4540 [153]" ON THE COMMODORE 64 "
4550 [153]"";:[129]I[178]1[164]36:[153]" ";:[130]:[153]"WAIT"
4560 [153]"ONON";:[129]I[178]1[164]10:[153]" ";:[130]
4570 [129]I[178]1[164]39:[153]" ";:[130]
4580 [151] 2023,32:[141]3140:[151]908,0
4590 [153]"";
4600 [153]""
4610 [153]"PLEASE TYPE IN THE PASSWORD WHIZ KIDSWAIT. ";
4620 [153]"DON'T FORGET TO PRESS RETURNWAIT. ";
4630 [129]I[178]1[164]80:[153]" ";:[130]:[153]"ONONPASSWORD: ";
4640 [141]4840
4650 [139] QC$[178]"WHIZ KIDS" [167] [142]
4660 [137]4590
4670 [151] 54296,15
4680 [151] 54276,128
4690 [151] 54277,33:[151] 52278,17
4700 [151] 54273,34:[151] 54272,85
4710 [151] 54276,129
4720 [142]
4730 [151] 54273,TT:[151] 54272,TT[170]20:[151] 54276,17:TT[178]TT[171]1:[142]
4740 [153]"": [143] STOP SIGN
4750 [129]I[178]1[164]16:[153]"";:[130]
4760 [153][163]28)" STEP (null)"
4770 [153][163]28)"STEP (null)"
4780 [153][163]28)" WAITGET ABS "
4790 [153][163]28)" WAITGETSTOPABS "
4800 [153][163]28)" WAITGET ABS "
4810 [153][163]28)"(null) WAITSTEP"
4820 [153][163]28)" (null) WAITSTEP"
4830 [153]"":[142]
4840 :
4850 [143] TYPE A LINE TO CONTINUE
4860 :
4870 [139][194](207)[178]0[167][151]204,0:[137]4880
4875 [137]4870
4880 QC$[178]""
4890 [143]:POKE198,0
4900 [139][195](QC$)[177]20[167]4950
4910 [161]Q$:[139]Q$[178]""[167]4910
4920 [139]Q$[178][199](13)[176]Q$[178][199](141)[167]5000
4930 [139]Q$[179][177][199](157)[175]Q$[179][177][199](20)[167]4960
4940 [139]QC$[178]""[167]4890
4950 QC$[178][200](QC$,[195](QC$)[171]1):[153]"CMD CMDCMD";:[137]4890
4960 [139][198](Q$)[179]32[176][198](Q$)[177]223[167]4890
4965 [139][198](Q$)[177]127[175][198](Q$)[179]192[167]4890
4970 QC$[178]QC$[170]Q$:[139][198](Q$)[178]34[167]:[153][199](34);[199](34);"CMD CMD";:[137]4890
4980 [153]Q$;:[137]4890
4990 [137] 4890
5000 [153]
5002 [139][194](207)[178]0[167][151]204,1:[137]5010
5004 [137]5002
5010 [142]
10000 [151]46,66:[151]45,0:[144]
20000 [151]53280,1:[151]53281,1:[153][199](9)[199](14)"POKE";:[144]